home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / ETEST8.TRP < prev    next >
Text File  |  1995-03-07  |  475b  |  22 lines
  1. var
  2.         b : bool = false;
  3. endVar
  4.  
  5. procedure main
  6.         if (b) 
  7.                 writeln('A');
  8.                 if (not b)
  9.                         writeln('E')
  10.                 else
  11.                         writeln('F');
  12.                 endif
  13.         else
  14.                 if (not b)
  15.                         writeln('B')
  16.                 else
  17.                         writeln('C');
  18.                 endif
  19.                 writeln('D');
  20.         endif
  21. endProc
  22.